[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd fcng
x real g (:) real [g] = fcng(x) function [g] = fcng(x)